********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Konversi_Jam_Ke_Detik;
Uses crt;
type jam=record
 jj : integer;
 mm : integer;
 dd : Integer;
 end;
Var
 j:jam;
 tot_detik : Integer;
begin
Clrscr;
writeln ('mencari tot_detik');
Write ('masukan j.jj:'); Readln(j.jj);
Write ('masukan j.mm:'); Readln(j.mm);
Write ('masukan j.dd:'); Readln(j.dd);
tot_detik:= (j.jj*3600+j.mm*60+j.dd);
writeln ('hasil :',tot_detik);
Readln;
end.